home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00125_Script_125 < prev    next >
Text File  |  1997-09-29  |  714b  |  29 lines
  1. on exitFrame
  2.   global gMONME,gMONMEmin
  3.   set gMONME = 1
  4.   set gMONMEmin = 1
  5.   
  6.   global gameList,REgameList,tempUser,tempCountry
  7.   global UsermonNum
  8.   set gameList = IndTraning (tempUser,1,UsermonNum)
  9.   set REgameList = []
  10.   repeat with i=1 to UsermonNum
  11.     add REgameList,3
  12.   end repeat
  13.   
  14.   global gSOMON
  15.   global SETTEI
  16.   
  17.   if GetAt(SETTEI ,1) = 0 then
  18.     put 0 into gSOMON
  19.     repeat with i=1 to count(REgameList)
  20.       if (getAt (REgameList,i)) = 0 or (getAt (REgameList,i)) = 3 then put gSOMON + 1 into gSOMON
  21.     end repeat
  22.   else
  23.     put (count(gameList))/3 into gSOMON
  24.   end if
  25.   put gSOMON into field "馗ñれî"
  26.   
  27.   put (count(gameList))/3 into SOMON
  28.   qRAND SOMON,SOMON
  29. end